home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 4
/
FM Towns Free Software Collection 4 - Disc 1.iso
/
fb386
/
egcg2
/
g04.bas
< prev
next >
Wrap
BASIC Source File
|
1991-10-18
|
1KB
|
43 lines
100 ' G04 T.WAKAMATSU
110 DIM X(20),Y(20):C(1)=6:C(2)=5
120 FOR I=1 TO 6:READ H(I):NEXT I:DATA 4,5,2,3,6,1
130 CLS:PI=3.14159!
140 FOR P=1 TO 2
150 K=60:F=0
160 FOR L=0 TO 60
170 N=0:J=F:F=F+1
180 FOR I=L TO 360+L STEP K
190 J=100-J:M=I+J
200 T=M*PI/180
210 N=N+1
220 X(N)=239*COS(T)+320
230 Y(N)=239*SIN(T)+240
240 NEXT I
250 PSET(X(1),Y(1))
260 FOR I=1 TO 6
270 LINE-(X(H(I)),Y(H(I))),PSET,%C(P)
280 NEXT I
290 NEXT L
300 NEXT P
310 FOR P=1 TO 2
320 K=60:F=0
330 FOR L=0 TO 60
340 N=0:J=F:F=F+1
350 FOR I=L TO 360+L STEP K
360 J=100-J:M=I+J
370 T=M*PI/180
380 N=N+1
390 X(N)=239*COS(T)+320
400 Y(N)=239*SIN(T)+240
410 NEXT I
420 PSET(X(1),Y(1))
430 FOR I=1 TO 6
440 IF I MOD 3=1 THEN C=7
450 IF I MOD 3=2 THEN C=2
460 IF I MOD 3=0 THEN C=1
470 IF P=2 THEN C=0
480 LINE-(X(H(I)),Y(H(I))),PSET,%C
490 NEXT I
500 NEXT L
510 NEXT P